home *** CD-ROM | disk | FTP | other *** search
/ Aminet 41 / Aminet 41 (2001)(Schatztruhe)[!][Feb 2001].iso / Aminet / util / wb / Gurus2000_HTML.lha / Gurus2000 / Install < prev    next >
Text File  |  1999-08-16  |  2KB  |  83 lines
  1. ; $VER: Install Gurus2000
  2. ; © by Demon 2000
  3.  
  4. (complete 0)
  5.  
  6. (set #Language (askchoice (prompt "Gurus2000") (help (cat @askchoice-help))
  7. (default 0) (choices "Deutsch" "English")) )
  8.  
  9. (if (= #language 0)
  10. ((set #welcome
  11. (cat "\n\n\nHerzlich willkommen beim Gurus2000 - Installer\n\n"
  12. "Dieser Installer installiert Gurus2000 auf deinen Amiga\n\n"
  13. "(Bitte alte Version vorher löschen)\n\n\n"
  14. "Gurus2000  © by Demon 2000"))
  15. (set #choose-text
  16. (cat "Wähle das Verzeichnis wohin Gurus2000 installiert werden soll. Ein Verzeichnis namens Gurus2000 wird dort angelegt."))
  17. (set #choose-html
  18. (cat "Wähle deinen liebsten HTML-Reader:"))
  19. (set #exit
  20. (cat "\n\nViel Spaß mit Gurus2000")) ))
  21.  
  22. (if (= #language 1)
  23. ((set #welcome
  24. (cat "\n\n\nWelcome to the Gurus2000 - installer\n\n"
  25. "This installer will install Gurus2000 on your Amiga\n\n"
  26. "(Please delete previous version)\n\n\n"
  27. "Gurus2000  © by Demon 2000"))
  28. (set #choose-text
  29. (cat "Choose the destination drawer for the Gurus2000 archive. A directory called Gurus2000 will be created there."))
  30. (set #choose-html
  31. (cat "Choose your favourite HTML reader:"))
  32. (set #exit
  33. (cat "\n\nHave fun with Gurus2000")) ))
  34.  
  35. ;----------------------------------------
  36.  
  37. (message #welcome)
  38.  
  39. (welcome)
  40.  
  41. (set @default "SYS:")
  42. (set @default (askdir (prompt #choose-text) (help (cat @askdir-help)) (default @default)) )
  43.  
  44. (complete 1)
  45.  
  46. ;----------------------------------------
  47.  
  48. (copyfiles (source ".inf") (dest @default) (newname "Gurus2000.info"))
  49.  
  50. (makedir @default)
  51.  
  52. (set @default (tackon @default "Gurus2000"))
  53.  
  54. (complete 2)
  55.  
  56. ;----------------------------------------
  57.  
  58. (if (= #Language 0)
  59. ((copyfiles (source "deutsch") (dest @default) (pattern "#?")) ))
  60.  
  61. (if (= #Language 1)
  62. ((copyfiles (source "english") (dest @default) (pattern "#?")) ))
  63.  
  64. (complete 50)
  65.  
  66. ;----------------------------------------
  67.  
  68. (copyfiles (source "!") (dest @default) (pattern "#?"))
  69.  
  70. (complete 99)
  71.  
  72. ;----------------------------------------
  73.  
  74. (set @tthtml (askfile (prompt #choose-html) (help (cat @askfile-help)) (default "sys:")) )
  75.  
  76. (tooltype (dest (tackon @default "Gurus2000.html")) (setdefaulttool @tthtml))
  77.  
  78. (complete 100)
  79.  
  80. ;----------------------------------------
  81.  
  82. (EXIT #exit (quiet))
  83.